home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue05 / hints / instring / instringr < prev   
Unknown  |  1990-01-14  |  2.3 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 00 10 20 f4 3e 49 | 6e 73 74 72 69 6e 67 52 |.... .>I|nstringR|
|00000010| 0d 00 0a 13 20 f4 20 57 | 69 6c 6c 69 65 20 53 74 |.... . W|illie St|
|00000020| 6f 74 74 0d 00 14 09 20 | eb 20 31 32 0d 00 1e 1c |ott.... |. 12....|
|00000030| 20 de 42 25 20 32 35 35 | 2c 43 25 20 32 35 35 2c | .B% 255|,C% 255,|
|00000040| 63 6f 64 65 20 31 32 30 | 0d 00 28 e8 20 24 42 25 |code 120|..(. $B%|
|00000050| 3d 22 4f 56 5a 54 45 45 | 4a 59 58 56 55 52 47 20 |="OVZTEE|JYXVURG |
|00000060| 49 57 58 50 59 54 4e 4e | 52 47 48 59 4e 4d 59 59 |IWXPYTNN|RGHYNMYY|
|00000070| 48 55 4b 44 41 51 57 46 | 48 44 58 57 5a 2d 4c 4c |HUKDAQWF|HDXWZ-LL|
|00000080| 46 42 51 53 4f 49 51 45 | 43 41 4f 4b 5a 47 44 44 |FBQSOIQE|CAOKZGDD|
|00000090| 4f 50 54 44 57 4f 45 50 | 56 57 4b 53 50 61 75 6c |OPTDWOEP|VWKSPaul|
|000000a0| 42 65 76 65 72 6c 65 79 | 43 51 50 46 51 56 45 59 |Beverley|CQPFQVEY|
|000000b0| 4c 57 52 41 72 63 68 69 | 76 65 5f 4d 61 67 61 7a |LWRArchi|ve_Magaz|
|000000c0| 69 6e 65 57 46 48 44 58 | 57 5a 4c 4c 46 42 51 52 |ineWFHDX|WZLLFBQR|
|000000d0| 49 53 43 2d 55 53 45 52 | 5a 47 44 44 4f 50 54 44 |ISC-USER|ZGDDOPTD|
|000000e0| 57 4f 45 50 56 57 4b 53 | 4c 4b 5a 4f 42 4f 4f 4b |WOEPVWKS|LKZOBOOK|
|000000f0| 41 4d 43 51 50 46 51 56 | 45 59 4c 57 52 53 56 4e |AMCQPFQV|EYLWRSVN|
|00000100| 50 52 55 41 58 47 44 44 | 4f 50 54 44 57 4f 45 50 |PRUAXGDD|OPTDWOEP|
|00000110| 56 57 4b 53 4c 4b 5a 4f | 42 4f 4f 47 54 50 4b 41 |VWKSLKZO|BOOGTPKA|
|00000120| 72 63 68 69 76 65 20 4d | 61 67 61 7a 69 6e 65 22 |rchive M|agazine"|
|00000130| 0d 00 32 09 20 f2 61 73 | 73 0d 00 3c 25 20 ff 28 |..2. .as|s..<% .(|
|00000140| 22 53 41 56 45 20 49 6e | 73 74 72 20 22 2b c3 7e |"SAVE In|str "+.~|
|00000150| 63 6f 64 65 2b 22 20 22 | 2b c3 7e 50 25 29 0d 00 |code+" "|+.~P%)..|
|00000160| 46 17 20 f1 22 53 74 72 | 69 6e 67 20 3d 20 22 27 |F. ."Str|ing = "'|
|00000170| 24 42 25 3a f5 0d 00 50 | 1d 20 20 20 e8 27 22 53 |$B%:...P|.   .'"S|
|00000180| 65 61 72 63 68 20 53 74 | 72 69 6e 67 20 22 3b 24 |earch St|ring ";$|
|00000190| 43 25 0d 00 5a 17 20 20 | 20 e8 27 22 53 74 61 72 |C%..Z.  | .'"Star|
|000001a0| 74 20 61 74 20 22 3b 41 | 25 0d 00 64 0b 20 20 20 |t at ";A|%..d.   |
|000001b0| fb 37 3a f1 0d 00 6e 10 | 20 20 20 58 3d ba 28 63 |.7:...n.|   X=.(c|
|000001c0| 6f 64 65 29 0d 00 78 14 | 20 20 20 5a 3d a9 24 43 |ode)..x.|   Z=.$C|
|000001d0| 25 3a 4c 3d a9 24 42 25 | 0d 00 82 5e 20 20 20 e7 |%:L=.$B%|...^   .|
|000001e0| 58 20 f1 27 22 53 74 61 | 72 74 73 20 61 74 20 22 |X .'"Sta|rts at "|
|000001f0| 3b 58 27 c0 24 42 25 2c | 58 2d 31 29 3b 3a fb 33 |;X'.$B%,|X-1);:.3|
|00000200| 3a f1 c1 24 42 25 2c 58 | 2c 5a 29 3b 3a fb 37 3a |:..$B%,X|,Z);:.7:|
|00000210| f1 c2 24 42 25 2c 28 4c | 2b 31 2d 5a 2d 58 29 29 |..$B%,(L|+1-Z-X))|
|00000220| 27 20 8b 20 f1 22 49 73 | 20 6e 6f 74 20 61 6e 20 |' . ."Is| not an |
|00000230| 49 4e 53 54 52 22 0d 00 | 8c 09 20 20 20 fb 37 0d |INSTR"..|..   .7.|
|00000240| 00 96 08 20 fd 20 a3 0d | 00 98 06 20 e0 0d 00 9b |... . ..|... ....|
|00000250| 36 20 f4 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |6 . ----|--------|
|00000260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 0d 00 a0 0a 20 | dd f2 61 73 73 0d 00 aa |---.... |..ass...|
|00000290| 0f 20 e3 6f 70 74 3d 30 | b8 33 88 33 0d 00 b4 0f |. .opt=0|.3.3....|
|000002a0| 20 20 20 20 50 25 3d 63 | 6f 64 65 0d 00 be 09 20 |    P%=c|ode.... |
|000002b0| 20 20 20 5b 0d 00 c8 0e | 20 20 20 4f 50 54 20 6f |   [....|   OPT o|
|000002c0| 70 74 0d 00 cd 1e 20 20 | 20 53 54 4d 46 44 20 52 |pt....  | STMFD R|
|000002d0| 31 33 21 2c 7b 52 31 2d | 52 31 32 2c 52 31 34 7d |13!,{R1-|R12,R14}|
|000002e0| 0d 00 d2 3a 20 20 20 4d | 4f 56 20 52 35 2c 52 30 |...:   M|OV R5,R0|
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000300| 20 20 20 20 20 20 20 20 | 20 20 3b 73 74 61 72 74 |        |  ;start|
|00000310| 20 6f 66 20 73 65 61 72 | 63 68 0d 00 dc 43 20 20 | of sear|ch...C  |
|00000320| 20 4d 4f 56 20 52 30 2c | 23 30 20 20 20 20 20 20 | MOV R0,|#0      |
|00000330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000340| 20 20 20 20 3b 72 65 73 | 65 74 20 52 30 20 28 41 |    ;res|et R0 (A|
|00000350| 25 29 20 66 6f 72 20 72 | 65 74 75 72 6e 0d 00 e6 |%) for r|eturn...|
|00000360| 31 20 20 20 4c 44 52 42 | 20 52 37 2c 5b 52 32 2c |1   LDRB| R7,[R2,|
|00000370| 23 30 5d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |#0]     |        |
|00000380| 20 20 20 20 20 20 20 3b | 52 32 3d 20 43 25 0d 00 |       ;|R2= C%..|
|00000390| f0 35 20 20 20 43 4d 50 | 20 52 37 2c 23 31 33 20 |.5   CMP| R7,#13 |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003b0| 20 20 20 20 20 20 20 20 | 3b 69 73 20 69 74 20 61 |        |;is it a|
|000003c0| 20 43 52 0d 00 fa 4a 20 | 20 20 42 45 51 20 65 6e | CR...J |  BEQ en|
|000003d0| 64 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d       |        |
|000003e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 6e 75 |        |     ;nu|
|000003f0| 6c 6c 20 73 75 62 20 73 | 74 72 69 6e 67 20 2c 20 |ll sub s|tring , |
|00000400| 65 78 69 74 20 74 6f 20 | 42 41 53 49 43 0d 01 04 |exit to |BASIC...|
|00000410| 05 20 0d 01 0e 0f 20 20 | 20 2e 6e 6f 6d 61 74 63 |. ....  | .nomatc|
|00000420| 68 0d 01 18 3e 20 20 20 | 4d 4f 56 20 52 34 2c 23 |h...>   |MOV R4,#|
|00000430| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0       |        |
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 3b 69 6e 69 74 |        |   ;init|
|00000450| 69 61 6c 69 73 65 20 63 | 6f 75 6e 74 65 72 73 0d |ialise c|ounters.|
|00000460| 01 22 10 20 20 20 4d 4f | 56 20 52 33 2c 23 30 0d |.".   MO|V R3,#0.|
|00000470| 01 2c 10 20 20 20 2e 6e | 65 78 74 63 68 61 72 0d |.,.   .n|extchar.|
|00000480| 01 36 3d 20 20 20 4c 44 | 52 42 20 52 36 2c 5b 52 |.6=   LD|RB R6,[R|
|00000490| 31 2c 52 35 5d 20 20 20 | 20 20 20 20 20 20 20 20 |1,R5]   |        |
|000004a0| 20 20 20 20 20 20 20 20 | 20 3b 67 65 74 20 62 79 |        | ;get by|
|000004b0| 74 65 20 6f 66 20 73 74 | 72 69 6e 67 0d 01 40 44 |te of st|ring..@D|
|000004c0| 20 20 20 43 4d 50 20 52 | 36 2c 23 31 33 20 20 20 |   CMP R|6,#13   |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004e0| 20 20 20 20 20 20 3b 69 | 73 20 69 74 20 43 52 20 |      ;i|s it CR |
|000004f0| 69 65 20 65 6e 64 20 6f | 66 20 73 74 72 69 6e 67 |ie end o|f string|
|00000500| 0d 01 4a 4b 20 20 20 42 | 45 51 20 65 6e 64 20 20 |..JK   B|EQ end  |
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000520| 20 20 20 20 20 20 20 20 | 20 20 3b 69 66 20 79 65 |        |  ;if ye|
|00000530| 73 20 73 75 62 73 74 72 | 69 6e 67 20 6e 6f 74 20 |s substr|ing not |
|00000540| 66 6f 75 6e 64 2e 20 65 | 78 69 74 0d 01 54 39 20 |found. e|xit..T9 |
|00000550| 20 20 80 20 52 36 2c 52 | 36 2c 23 39 35 20 20 20 |  . R6,R|6,#95   |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000570| 20 20 20 3b 80 20 74 6f | 20 69 67 6e 6f 72 65 20 |   ;. to| ignore |
|00000580| 63 61 73 65 0d 01 5e 43 | 20 20 20 4c 44 52 42 20 |case..^C|   LDRB |
|00000590| 52 37 2c 5b 52 32 2c 52 | 34 5d 20 20 20 20 20 20 |R7,[R2,R|4]      |
|000005a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 66 |        |      ;f|
|000005b0| 69 72 73 74 20 62 79 74 | 65 20 6f 66 20 73 75 62 |irst byt|e of sub|
|000005c0| 20 73 74 72 69 6e 67 0d | 01 68 35 20 20 20 43 4d | string.|.h5   CM|
|000005d0| 50 20 52 37 2c 23 31 33 | 20 20 20 20 20 20 20 20 |P R7,#13|        |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005f0| 20 3b 69 73 20 69 74 20 | 61 20 43 52 0d 01 72 42 | ;is it |a CR..rB|
|00000600| 20 20 20 53 55 42 45 51 | 20 52 30 2c 52 35 2c 52 |   SUBEQ| R0,R5,R|
|00000610| 33 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |3       |        |
|00000620| 20 20 20 20 20 20 3b 79 | 65 73 20 69 65 20 65 6e |      ;y|es ie en|
|00000630| 64 20 6f 66 20 73 75 62 | 73 74 72 69 6e 67 0d 01 |d of sub|string..|
|00000640| 7c 49 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 ||I      |        |
|00000650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000660| 20 20 20 20 20 20 20 20 | 3b 52 35 2d 52 33 20 67 |        |;R5-R3 g|
|00000670| 69 76 65 73 20 70 6f 73 | 69 74 69 6f 6e 20 69 6e |ives pos|ition in|
|00000680| 20 73 74 72 69 6e 67 0d | 01 86 3f 20 20 20 41 44 | string.|..?   AD|
|00000690| 44 45 51 20 52 30 2c 52 | 30 2c 23 31 20 20 20 20 |DEQ R0,R|0,#1    |
|000006a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006b0| 20 3b 70 6c 75 73 20 31 | 2e 20 46 69 72 73 74 20 | ;plus 1|. First |
|000006c0| 63 68 61 72 3d 30 0d 01 | 90 34 20 20 20 42 45 51 |char=0..|.4   BEQ|
|000006d0| 20 65 6e 64 20 20 20 20 | 20 20 20 20 20 20 20 20 | end    |        |
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006f0| 3b 20 61 6e 64 20 65 78 | 69 74 0d 01 9a 2b 20 20 |; and ex|it...+  |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000720| 20 20 20 20 3b 0d 01 a4 | 39 20 20 20 80 20 52 37 |    ;...|9   . R7|
|00000730| 2c 52 37 2c 23 39 35 20 | 20 20 20 20 20 20 20 20 |,R7,#95 |        |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 80 20 |        |     ;. |
|00000750| 74 6f 20 69 67 6e 6f 72 | 65 20 63 61 73 65 0d 01 |to ignor|e case..|
|00000760| ae 4c 20 20 20 41 44 44 | 20 52 35 2c 52 35 2c 23 |.L   ADD| R5,R5,#|
|00000770| 31 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1       |        |
|00000780| 20 20 20 20 20 20 20 20 | 3b 69 6e 63 72 65 6d 65 |        |;increme|
|00000790| 6e 74 20 63 6f 75 6e 74 | 65 72 73 20 66 6f 72 20 |nt count|ers for |
|000007a0| 6e 65 78 74 20 63 68 61 | 72 73 0d 01 b8 13 20 20 |next cha|rs....  |
|000007b0| 20 41 44 44 20 52 34 2c | 52 34 2c 23 31 0d 01 c2 | ADD R4,|R4,#1...|
|000007c0| 49 20 20 20 43 4d 50 20 | 52 37 2c 23 33 20 20 20 |I   CMP |R7,#3   |
|000007d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007e0| 20 20 20 20 20 20 20 3b | 69 73 20 69 74 20 61 20 |       ;|is it a |
|000007f0| 68 61 73 68 3f 20 49 66 | 20 73 6f 20 6d 61 6b 65 |hash? If| so make|
|00000800| 20 65 71 75 61 6c 0d 01 | cc 0f 20 20 20 ec 51 20 | equal..|..   .Q |
|00000810| 52 36 2c 52 37 0d 01 d6 | 3a 20 20 20 43 4d 50 20 |R6,R7...|:   CMP |
|00000820| 52 36 2c 52 37 20 20 20 | 20 20 20 20 20 20 20 20 |R6,R7   |        |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00000840| 41 52 45 20 62 79 74 65 | 73 20 65 71 75 61 6c 0d |ARE byte|s equal.|
|00000850| 01 e0 49 20 20 20 41 44 | 44 45 51 20 52 33 2c 52 |..I   AD|DEQ R3,R|
|00000860| 33 2c 23 31 20 20 20 20 | 20 20 20 20 20 20 20 20 |3,#1    |        |
|00000870| 20 20 20 20 20 20 20 20 | 20 3b 79 65 73 20 2d 20 |        | ;yes - |
|00000880| 67 65 74 20 6e 65 78 74 | 20 73 75 62 20 73 74 72 |get next| sub str|
|00000890| 69 6e 67 20 63 68 61 72 | 0d 01 ea 13 20 20 20 42 |ing char|....   B|
|000008a0| 45 51 20 6e 65 78 74 63 | 68 61 72 0d 01 f4 42 20 |EQ nextc|har...B |
|000008b0| 20 20 42 4e 45 20 6e 6f | 6d 61 74 63 68 20 20 20 |  BNE no|match   |
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008d0| 20 20 20 20 20 3b 6e 6f | 20 74 72 79 20 6e 65 78 |     ;no| try nex|
|000008e0| 74 20 73 74 72 69 6e 67 | 20 63 68 61 72 0d 01 fe |t string| char...|
|000008f0| 0b 20 20 20 2e 65 6e 64 | 0d 02 08 1e 20 20 20 4c |.   .end|....   L|
|00000900| 44 4d 46 44 20 52 31 33 | 21 2c 7b 52 31 2d 52 31 |DMFD R13|!,{R1-R1|
|00000910| 32 2c 52 31 35 7d 0d 02 | 12 08 20 20 20 5d 0d 02 |2,R15}..|..   ]..|
|00000920| 1c 06 20 ed 0d 02 26 06 | 20 e1 0d ff             |.. ...&.| ...    |
+--------+-------------------------+-------------------------+--------+--------+